%this script should test the cluster creation functions

%two dimensions:
C1 = create_cluster([0 0]', [1,1]', 10);
C2 = create_cluster([-5, -5]', [1 1]', 10 );
C3 = create_cluster([5,5]', [1 1]', 10);

hold on;
scatter(C1(1,:),C1(2,:),'r');
scatter(C2(1,:),C2(2,:),'g');
scatter(C3(1,:),C3(2,:),'b');
hold off;

%three dimensions
C4 = create_cluster([0 0 0]', [1 1 1]', 10);
C5 = create_cluster([-5 -5 -5]', [0.1 1 10]', 10 );
C6 = create_cluster([5 5 5]', [0.1 0.1 0.1]', 10);

C = [C4 C5 C6];
figure;
my_ones = ones(1,10);
colors = [my_ones, 2*my_ones, 3*my_ones]';
length(C)
length(colors)
scatter3(C(1,:),C(2,:),C(3,:),[],colors,'filled');




